home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / OCEMessaging.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  41.2 KB  |  1,311 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        OCEMessaging.a
  3. ;
  4. ;    Contains:    Apple Open Collaboration Environment Messaging Interfaces.
  5. ;
  6. ;    Version:    Technology:    AOCE Toolbox 1.02
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1994-1997 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__OCEMESSAGING__') = 'UNDEFINED' THEN
  19. __OCEMESSAGING__ SET 1
  20.  
  21.     IF &TYPE('__FILES__') = 'UNDEFINED' THEN
  22.     include 'Files.a'
  23.     ENDIF
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27.  
  28.     IF &TYPE('__DIGITALSIGNATURE__') = 'UNDEFINED' THEN
  29.     include 'DigitalSignature.a'
  30.     ENDIF
  31.     IF &TYPE('__OCE__') = 'UNDEFINED' THEN
  32.     include 'OCE.a'
  33.     ENDIF
  34.     IF &TYPE('__OCEAUTHDIR__') = 'UNDEFINED' THEN
  35.     include 'OCEAuthDir.a'
  36.     ENDIF
  37.  
  38. ; *****************************************************************************
  39. ;  Definitions common to OCEMessaging and to OCEMail. These relate to addressing,
  40. ;message ids and priorities, etc. 
  41.  
  42. ;  Values of IPMPriority 
  43.  
  44. kIPMAnyPriority                    EQU        0                    ; FOR FILTER ONLY 
  45. kIPMNormalPriority                EQU        1
  46. kIPMLowPriority                    EQU        2
  47. kIPMHighPriority                EQU        3
  48. ; typedef Byte                             IPMPriority
  49.  
  50. ;  Values of IPMAccessMode 
  51.  
  52. kIPMAtMark                        EQU        0
  53. kIPMFromStart                    EQU        1
  54. kIPMFromLEOM                    EQU        2
  55. kIPMFromMark                    EQU        3
  56. ; typedef unsigned short                 IPMAccessMode
  57.  
  58.  
  59. kIPMUpdateMsgBit                EQU        4
  60. kIPMNewMsgBit                    EQU        5
  61. kIPMDeleteMsgBit                EQU        6
  62. ;  Values of IPMNotificationType 
  63.  
  64. kIPMUpdateMsgMask                EQU        $10
  65. kIPMNewMsgMask                    EQU        $20
  66. kIPMDeleteMsgMask                EQU        $40
  67. ; typedef Byte                             IPMNotificationType
  68.  
  69. ;  Values of IPMSenderTag 
  70.  
  71. kIPMSenderRStringTag            EQU        0
  72. kIPMSenderRecordIDTag            EQU        1
  73. ; typedef unsigned short                 IPMSenderTag
  74.  
  75.  
  76. kIPMFromDistListBit                EQU        0
  77. kIPMDummyRecBit                    EQU        1
  78. kIPMFeedbackRecBit                EQU        2                    ; should be redirected to feedback queue 
  79. kIPMReporterRecBit                EQU        3                    ; should be redirected to reporter original queue 
  80. kIPMBCCRecBit                    EQU        4                    ; this recipient is blind to all recipients of message 
  81. ;  Values of OCERecipientOffsetFlags 
  82.  
  83. kIPMFromDistListMask            EQU        $01
  84. kIPMDummyRecMask                EQU        $02
  85. kIPMFeedbackRecMask                EQU        $04
  86. kIPMReporterRecMask                EQU        $08
  87. kIPMBCCRecMask                    EQU        $10
  88. ; typedef Byte                             OCERecipientOffsetFlags
  89.  
  90. OCECreatorType            RECORD 0
  91. msgCreator                 ds.l    1                ; offset: $0 (0)
  92. msgType                     ds.l    1                ; offset: $4 (4)
  93. sizeof                     EQU *                    ; size:   $8 (8)
  94.                         ENDR
  95.  
  96. kIPMTypeWildCard                EQU        'ipmw'
  97. kIPMFamilyUnspecified            EQU        0
  98. kIPMFamilyWildCard                EQU        $3F3F3F3F            ; '????' * well known signature 
  99. kIPMSignature                    EQU        'ipms'                ; base type * well known message types 
  100. kIPMReportNotify                EQU        'rptn'                ; routing feedback * well known message block types 
  101. kIPMEnclosedMsgType                EQU        'emsg'                ; enclosed (nested) message 
  102. kIPMReportInfo                    EQU        'rpti'                ; recipient information 
  103. kIPMDigitalSignature            EQU        'dsig'                ; digital signature 
  104. ;  Values of IPMMsgFormat 
  105.  
  106. kIPMOSFormatType                EQU        1
  107. kIPMStringFormatType            EQU        2
  108. ; typedef unsigned short                 IPMMsgFormat
  109.  
  110. IPMStringMsgType        RECORD 0
  111. f                         ds        Str32
  112. sizeof                     EQU *                    ; size:   $21 (33)
  113.                         ENDR
  114.  
  115.  
  116. TheType                    RECORD 0
  117. msgOSType                 ds        OCECreatorType ; offset: $0 (0)
  118.                          ORG 0
  119. msgStrType                 ds        IPMStringMsgType ; offset: $0 (0)
  120.                          ORG 34
  121. sizeof                     EQU *                    ; size:   $22 (34)
  122.                         ENDR
  123. IPMMsgType                RECORD 0
  124. format                     ds.w    1                ; offset: $0 (0)        ;  IPMMsgFormat
  125. theType                     ds        TheType            ; offset: $2 (2)
  126. sizeof                     EQU *                    ; size:   $24 (36)
  127.                         ENDR
  128. ; 
  129. ;Following are the known extension values for IPM addresses handled by Apple.
  130. ;We define the definition of the entn extension below.
  131. ;
  132.  
  133.  
  134. kOCEalanXtn                        EQU        'alan'
  135. kOCEentnXtn                        EQU        'entn'                ; entn = entity name (aka DSSpec) 
  136. kOCEaphnXtn                        EQU        'aphn'
  137. ; 
  138. ;Following are the specific definitions for the extension for the standard
  139. ;OCEMail 'entn' addresses.  [Note, the actual extension is formatted as in
  140. ;IPMEntityNameExtension.]
  141. ;
  142.  
  143. ;  entn extension forms 
  144.  
  145. kOCEAddrXtn                        EQU        'addr'
  146. kOCEQnamXtn                        EQU        'qnam'
  147. kOCEAttrXtn                        EQU        'attr'                ; an attribute specification 
  148. kOCESpAtXtn                        EQU        'spat'                ; specific attribute 
  149. ; 
  150. ;Following are the specific definitions for standard
  151. ;OCEMail 'aphn' extension value.  
  152. ;
  153. ;All RStrings here are packed (e.g. truncated to length) and even padded (e.g.
  154. ;if length odd, then a pad byte (zero) should be introduced before the next field).
  155. ;
  156. ;The extension value is in the packed form of the following structure:
  157. ;    RString        phoneNumber;
  158. ;    RString        modemType;
  159. ;    Str32        queueuName;
  160. ;
  161. ;The body of phoneNumber compound RString is in the packed form of the following structure:
  162. ;    short         subType;
  163. ;    RString     countryCode;                // used when subType == kOCEUseHandyDial
  164. ;    RString        areaCode;                    // used when subType == kOCEUseHandyDial
  165. ;    RString        phone;                        // used when subType == kOCEUseHandyDial
  166. ;    RString        postFix;                    // used when subType == kOCEUseHandyDial
  167. ;    RString        nonHandyDialString;            // used when subType == kOCEDontUseHandyDial
  168. ;
  169.  
  170. ;  phoneNumber sub type constants 
  171.  
  172. kOCEUseHandyDial                EQU        1
  173. kOCEDontUseHandyDial            EQU        2
  174. ;  FORMAT OF A PACKED FORM RECIPIENT 
  175. ProtoOCEPackedRecipient    RECORD 0
  176. dataLength                 ds.w    1                ; offset: $0 (0)
  177. sizeof                     EQU *                    ; size:   $2 (2)
  178.                         ENDR
  179.  
  180. kOCEPackedRecipientMaxBytes        EQU        4094
  181. OCEPackedRecipient        RECORD 0
  182. dataLength                 ds.w    1                ; offset: $0 (0)
  183. data                     ds.b    4094            ; offset: $2 (2)
  184. sizeof                     EQU *                    ; size:   $1000 (4096)
  185.                         ENDR
  186. IPMEntnQueueExtension    RECORD 0
  187. queueName                 ds        Str32            ; offset: $0 (0)
  188.                          ORG 34
  189. sizeof                     EQU *                    ; size:   $22 (34)
  190.                         ENDR
  191. ;  kOCEAttrXtn 
  192. IPMEntnAttributeExtension RECORD 0
  193. attributeName             ds        AttributeType    ; offset: $0 (0)
  194. sizeof                     EQU *                    ; size:   $24 (36)
  195.                         ENDR
  196. ;  kOCESpAtXtn 
  197. IPMEntnSpecificAttributeExtension RECORD 0
  198. attributeCreationID         ds        AttributeCreationID ; offset: $0 (0)
  199. attributeName             ds        AttributeType    ; offset: $8 (8)
  200. sizeof                     EQU *                    ; size:   $2C (44)
  201.                         ENDR
  202. ;  All IPM entn extensions fit within the following 
  203. IPMEntityNameExtension    RECORD 0
  204. subExtensionType         ds.l    1                ; offset: $0 (0)
  205. specificAttribute         ds        IPMEntnSpecificAttributeExtension ; offset: $4 (4)
  206.                          ORG 4
  207. attribute                 ds        IPMEntnAttributeExtension ; offset: $4 (4)
  208.                          ORG 4
  209. queue                     ds        IPMEntnQueueExtension ; offset: $4 (4)
  210.                          ORG 48
  211. sizeof                     EQU *                    ; size:   $30 (48)
  212.                         ENDR
  213. ;  addresses with kIPMNBPXtn should specify this nbp type 
  214. IPMMsgID                RECORD 0
  215. id                         ds.l    4                ; offset: $0 (0)
  216. sizeof                     EQU *                    ; size:   $10 (16)
  217.                         ENDR
  218.  
  219. ;  Values of IPMHeaderSelector 
  220.  
  221. kIPMTOC                            EQU        0
  222. kIPMSender                        EQU        1
  223. kIPMProcessHint                    EQU        2
  224. kIPMMessageTitle                EQU        3
  225. kIPMMessageType                    EQU        4
  226. kIPMFixedInfo                    EQU        7
  227. ; typedef Byte                             IPMHeaderSelector
  228.  
  229. TheSender                RECORD 0
  230. rString                     ds        RString            ; offset: $0 (0)
  231.                          ORG 0
  232. rid                         ds        PackedRecordID ; offset: $0 (0)
  233. sizeof                     EQU *                    ; size:   $722 (1826)
  234.                         ENDR
  235. IPMSender                RECORD 0
  236. sendTag                     ds.w    1                ; offset: $0 (0)
  237. theSender                 ds        TheSender        ; offset: $2 (2)
  238. sizeof                     EQU *                    ; size:   $724 (1828)
  239.                         ENDR
  240. ; *****************************************************************************
  241. ;  Definitions specific to OCEMessaging 
  242. ; typedef unsigned long                 IPMContextRef
  243.  
  244. ; typedef unsigned long                 IPMQueueRef
  245.  
  246. ; typedef unsigned long                 IPMMsgRef
  247.  
  248. ; typedef unsigned long                 IPMSeqNum
  249.  
  250. IPMProcHint                RECORD 0
  251. f                         ds        Str32
  252. sizeof                     EQU *                    ; size:   $21 (33)
  253.                         ENDR
  254.  
  255.  
  256. IPMQueueName            RECORD 0
  257. f                         ds        Str32
  258. sizeof                     EQU *                    ; size:   $21 (33)
  259.                         ENDR
  260.  
  261.  
  262. IPMFixedHdrInfo            RECORD 0
  263. version                     ds.w    1                ; offset: $0 (0)
  264. authenticated             ds.b    1                ; offset: $2 (2)
  265. signatureEnclosed         ds.b    1                ; offset: $3 (3)        ;   digital signature enclosed 
  266. msgSize                     ds.l    1                ; offset: $4 (4)
  267. notification             ds.b    1                ; offset: $8 (8)
  268. priority                 ds.b    1                ; offset: $9 (9)
  269. blockCount                 ds.w    1                ; offset: $A (10)
  270. originalRcptCount         ds.w    1                ; offset: $C (12)        ;         original number of recipients 
  271. refCon                     ds.l    1                ; offset: $E (14)        ;         Client defined data 
  272. reserved                 ds.w    1                ; offset: $12 (18)
  273. creationTime             ds.l    1                ; offset: $14 (20)        ;         Time when it was created 
  274. msgID                     ds        IPMMsgID        ; offset: $18 (24)
  275. family                     ds.l    1                ; offset: $28 (40)        ;  family this msg belongs (e.g. mail) 
  276. sizeof                     EQU *                    ; size:   $2C (44)
  277.                         ENDR
  278.  
  279. kIPMDeliveryNotificationBit        EQU        0
  280. kIPMNonDeliveryNotificationBit    EQU        1
  281. kIPMEncloseOriginalBit            EQU        2
  282. kIPMSummaryReportBit            EQU        3                    ; modify enclose original to only on error 
  283. kIPMOriginalOnlyOnErrorBit        EQU        4
  284.  
  285. kIPMNoNotificationMask            EQU        $00
  286. kIPMDeliveryNotificationMask    EQU        $01
  287. kIPMNonDeliveryNotificationMask    EQU        $02
  288. kIPMDontEncloseOriginalMask        EQU        $00
  289. kIPMEncloseOriginalMask            EQU        $04
  290. kIPMImmediateReportMask            EQU        $00
  291. kIPMSummaryReportMask            EQU        $08
  292. kIPMOriginalOnlyOnErrorMask        EQU        $10
  293. kIPMEncloseOriginalOnErrorMask    EQU        $14
  294. ;  standard Non delivery codes 
  295.  
  296. kIPMNoSuchRecipient                EQU        $0001
  297. kIPMRecipientMalformed            EQU        $0002
  298. kIPMRecipientAmbiguous            EQU        $0003
  299. kIPMRecipientAccessDenied        EQU        $0004
  300. kIPMGroupExpansionProblem        EQU        $0005
  301. kIPMMsgUnreadable                EQU        $0006
  302. kIPMMsgExpired                    EQU        $0007
  303. kIPMMsgNoTranslatableContent    EQU        $0008
  304. kIPMRecipientReqStdCont            EQU        $0009
  305. kIPMRecipientReqSnapShot        EQU        $000A
  306. kIPMNoTransferDiskFull            EQU        $000B
  307. kIPMNoTransferMsgRejectedbyDest    EQU        $000C
  308. kIPMNoTransferMsgTooLarge        EQU        $000D
  309. ; ************************************************************************
  310. ; 
  311. ;This is the structure that will be returned by enumerate and getmsginfo
  312. ;This definition is just to give you a template, the position of msgType
  313. ;is variable since this is a packed structure.  procHint and msgType are
  314. ;packed and even length padded.
  315. ;
  316. ;* master message info 
  317.  
  318. IPMMsgInfo                RECORD 0
  319. sequenceNum                 ds.l    1                ; offset: $0 (0)
  320. userData                 ds.l    1                ; offset: $4 (4)
  321. respIndex                 ds.w    1                ; offset: $8 (8)
  322. padByte                     ds.b    1                ; offset: $A (10)
  323. priority                 ds.b    1                ; offset: $B (11)
  324. msgSize                     ds.l    1                ; offset: $C (12)
  325. originalRcptCount         ds.w    1                ; offset: $10 (16)
  326. reserved                 ds.w    1                ; offset: $12 (18)
  327. creationTime             ds.l    1                ; offset: $14 (20)
  328. msgID                     ds        IPMMsgID        ; offset: $18 (24)
  329. family                     ds.l    1                ; offset: $28 (40)        ;  family this msg belongs (e.g. mail) 
  330. procHint                 ds        IPMProcHint        ; offset: $2C (44)
  331. filler2                     ds.b    1                ; offset: $4D (77)
  332. msgType                     ds        IPMMsgType        ; offset: $4E (78)
  333. sizeof                     EQU *                    ; size:   $72 (114)
  334.                         ENDR
  335. IPMBlockType            RECORD 0
  336. f                         ds        OCECreatorType
  337. sizeof                     EQU *                    ; size:   $8 (8)
  338.                         ENDR
  339.  
  340.  
  341. IPMTOC                    RECORD 0
  342. blockType                 ds        IPMBlockType    ; offset: $0 (0)
  343. blockOffset                 ds.l    1                ; offset: $8 (8)
  344. blockSize                 ds.l    1                ; offset: $C (12)
  345. blockRefCon                 ds.l    1                ; offset: $10 (16)
  346. sizeof                     EQU *                    ; size:   $14 (20)
  347.                         ENDR
  348. ; 
  349. ;The following structure is just to describe the layout of the SingleFilter.
  350. ;Each field should be packed and word aligned when passed to the IPM ToolBox.
  351. ;
  352.  
  353. IPMSingleFilter            RECORD 0
  354. priority                 ds.b    1                ; offset: $0 (0)
  355. padByte                     ds.b    1                ; offset: $1 (1)
  356. family                     ds.l    1                ; offset: $2 (2)        ;  family this msg belongs (e.g. mail), '????' for all 
  357. script                     ds.w    1                ; offset: $6 (6)        ;  Language Identifier 
  358. hint                     ds        IPMProcHint        ; offset: $8 (8)
  359. filler2                     ds.b    1                ; offset: $29 (41)
  360. msgType                     ds        IPMMsgType        ; offset: $2A (42)
  361. sizeof                     EQU *                    ; size:   $4E (78)
  362.                         ENDR
  363. IPMFilter                RECORD 0
  364. count                     ds.w    1                ; offset: $0 (0)
  365. sFilters                 ds        IPMSingleFilter ; offset: $2 (2) <-- really an array of length one
  366. sizeof                     EQU *                    ; size:   $50 (80)
  367.                         ENDR
  368. ; *************************************************************************
  369. ;Following structures define the “start” of a recipient report block and the
  370. ;elements of the array respectively.
  371. ;
  372.  
  373. IPMReportBlockHeader    RECORD 0
  374. msgID                     ds        IPMMsgID        ; offset: $0 (0)        ;  message id of the original 
  375. creationTime             ds.l    1                ; offset: $10 (16)        ;  creation time of the report 
  376. sizeof                     EQU *                    ; size:   $14 (20)
  377.                         ENDR
  378. OCERecipientReport        RECORD 0
  379. rcptIndex                 ds.w    1                ; offset: $0 (0)        ;  index of recipient in original message 
  380. result                     ds.w    1                ; offset: $2 (2)        ;  result of sending letter to this recipient
  381. sizeof                     EQU *                    ; size:   $4 (4)
  382.                         ENDR
  383. ; ************************************************************************
  384.  
  385.  
  386. ; typedef IPMParamBlock *                IPMParamBlockPtr
  387.  
  388. IPMOpenContextPB        RECORD 0
  389. qLink                     ds.l    1                ; offset: $0 (0)
  390. reservedH1                 ds.l    1                ; offset: $4 (4)
  391. reservedH2                 ds.l    1                ; offset: $8 (8)
  392. ioCompletion             ds.l    1                ; offset: $C (12)
  393. ioResult                 ds.w    1                ; offset: $10 (16)
  394. saveA5                     ds.l    1                ; offset: $12 (18)
  395. reqCode                     ds.w    1                ; offset: $16 (22)
  396. contextRef                 ds.l    1                ; offset: $18 (24)        ;  <--  Context reference to be used in further calls
  397. sizeof                     EQU *                    ; size:   $1C (28)
  398.                         ENDR
  399. IPMCloseContextPB        RECORD 0
  400. f                         ds        IPMOpenContextPB
  401. sizeof                     EQU *                    ; size:   $1C (28)
  402.                         ENDR
  403.  
  404.  
  405. IPMCreateQueuePB        RECORD 0
  406. qLink                     ds.l    1                ; offset: $0 (0)
  407. reservedH1                 ds.l    1                ; offset: $4 (4)
  408. reservedH2                 ds.l    1                ; offset: $8 (8)
  409. ioCompletion             ds.l    1                ; offset: $C (12)
  410. ioResult                 ds.w    1                ; offset: $10 (16)
  411. saveA5                     ds.l    1                ; offset: $12 (18)
  412. reqCode                     ds.w    1                ; offset: $16 (22)
  413. filler1                     ds.l    1                ; offset: $18 (24)
  414. queue                     ds.l    1                ; offset: $1C (28)
  415. identity                 ds.l    1                ; offset: $20 (32)        ;  used only if queue is remote 
  416. owner                     ds.l    1                ; offset: $24 (36)        ;  used only if queue is remote 
  417. sizeof                     EQU *                    ; size:   $28 (40)
  418.                         ENDR
  419. ;  For createqueue and deletequeue only queue and identity are used 
  420. IPMDeleteQueuePB        RECORD 0
  421. f                         ds        IPMCreateQueuePB
  422. sizeof                     EQU *                    ; size:   $28 (40)
  423.                         ENDR
  424.  
  425.  
  426. IPMOpenQueuePB            RECORD 0
  427. qLink                     ds.l    1                ; offset: $0 (0)
  428. reservedH1                 ds.l    1                ; offset: $4 (4)
  429. reservedH2                 ds.l    1                ; offset: $8 (8)
  430. ioCompletion             ds.l    1                ; offset: $C (12)
  431. ioResult                 ds.w    1                ; offset: $10 (16)
  432. saveA5                     ds.l    1                ; offset: $12 (18)
  433. reqCode                     ds.w    1                ; offset: $16 (22)
  434. contextRef                 ds.l    1                ; offset: $18 (24)
  435. queue                     ds.l    1                ; offset: $1C (28)
  436. identity                 ds.l    1                ; offset: $20 (32)
  437. filter                     ds.l    1                ; offset: $24 (36)
  438. newQueueRef                 ds.l    1                ; offset: $28 (40)
  439. notificationProc         ds.l    1                ; offset: $2C (44)
  440. userData                 ds.l    1                ; offset: $30 (48)
  441. noteType                 ds.b    1                ; offset: $34 (52)
  442. padByte                     ds.b    1                ; offset: $35 (53)
  443. reserved                 ds.l    1                ; offset: $36 (54)
  444. reserved2                 ds.l    1                ; offset: $3A (58)
  445. sizeof                     EQU *                    ; size:   $3E (62)
  446.                         ENDR
  447. IPMCloseQueuePB            RECORD 0
  448. qLink                     ds.l    1                ; offset: $0 (0)
  449. reservedH1                 ds.l    1                ; offset: $4 (4)
  450. reservedH2                 ds.l    1                ; offset: $8 (8)
  451. ioCompletion             ds.l    1                ; offset: $C (12)
  452. ioResult                 ds.w    1                ; offset: $10 (16)
  453. saveA5                     ds.l    1                ; offset: $12 (18)
  454. reqCode                     ds.w    1                ; offset: $16 (22)
  455. queueRef                 ds.l    1                ; offset: $18 (24)
  456. sizeof                     EQU *                    ; size:   $1C (28)
  457.                         ENDR
  458. IPMEnumerateQueuePB        RECORD 0
  459. qLink                     ds.l    1                ; offset: $0 (0)
  460. reservedH1                 ds.l    1                ; offset: $4 (4)
  461. reservedH2                 ds.l    1                ; offset: $8 (8)
  462. ioCompletion             ds.l    1                ; offset: $C (12)
  463. ioResult                 ds.w    1                ; offset: $10 (16)
  464. saveA5                     ds.l    1                ; offset: $12 (18)
  465. reqCode                     ds.w    1                ; offset: $16 (22)
  466. queueRef                 ds.l    1                ; offset: $18 (24)
  467. startSeqNum                 ds.l    1                ; offset: $1C (28)
  468. getProcHint                 ds.b    1                ; offset: $20 (32)
  469. getMsgType                 ds.b    1                ; offset: $21 (33)
  470. filler                     ds.w    1                ; offset: $22 (34)
  471. filter                     ds.l    1                ; offset: $24 (36)
  472. numToGet                 ds.w    1                ; offset: $28 (40)
  473. numGotten                 ds.w    1                ; offset: $2A (42)
  474. enumCount                 ds.l    1                ; offset: $2C (44)
  475. enumBuffer                 ds.l    1                ; offset: $30 (48)        ;  will be packed array of IPMMsgInfo 
  476. actEnumCount             ds.l    1                ; offset: $34 (52)
  477. sizeof                     EQU *                    ; size:   $38 (56)
  478.                         ENDR
  479. IPMChangeQueueFilterPB    RECORD 0
  480. f                         ds        IPMEnumerateQueuePB
  481. sizeof                     EQU *                    ; size:   $38 (56)
  482.                         ENDR
  483.  
  484.  
  485. IPMDeleteMsgRangePB        RECORD 0
  486. qLink                     ds.l    1                ; offset: $0 (0)
  487. reservedH1                 ds.l    1                ; offset: $4 (4)
  488. reservedH2                 ds.l    1                ; offset: $8 (8)
  489. ioCompletion             ds.l    1                ; offset: $C (12)
  490. ioResult                 ds.w    1                ; offset: $10 (16)
  491. saveA5                     ds.l    1                ; offset: $12 (18)
  492. reqCode                     ds.w    1                ; offset: $16 (22)
  493. queueRef                 ds.l    1                ; offset: $18 (24)
  494. startSeqNum                 ds.l    1                ; offset: $1C (28)
  495. endSeqNum                 ds.l    1                ; offset: $20 (32)
  496. lastSeqNum                 ds.l    1                ; offset: $24 (36)
  497. sizeof                     EQU *                    ; size:   $28 (40)
  498.                         ENDR
  499.  
  500. IPMOpenMsgPB            RECORD 0
  501. qLink                     ds.l    1                ; offset: $0 (0)
  502. reservedH1                 ds.l    1                ; offset: $4 (4)
  503. reservedH2                 ds.l    1                ; offset: $8 (8)
  504. ioCompletion             ds.l    1                ; offset: $C (12)
  505. ioResult                 ds.w    1                ; offset: $10 (16)
  506. saveA5                     ds.l    1                ; offset: $12 (18)
  507. reqCode                     ds.w    1                ; offset: $16 (22)
  508. queueRef                 ds.l    1                ; offset: $18 (24)
  509. sequenceNum                 ds.l    1                ; offset: $1C (28)
  510. newMsgRef                 ds.l    1                ; offset: $20 (32)
  511. actualSeqNum             ds.l    1                ; offset: $24 (36)
  512. exactMatch                 ds.b    1                ; offset: $28 (40)
  513. padByte                     ds.b    1                ; offset: $29 (41)
  514. reserved                 ds.l    1                ; offset: $2A (42)
  515. sizeof                     EQU *                    ; size:   $2E (46)
  516.                         ENDR
  517.  
  518. IPMOpenHFSMsgPB            RECORD 0
  519. qLink                     ds.l    1                ; offset: $0 (0)
  520. reservedH1                 ds.l    1                ; offset: $4 (4)
  521. reservedH2                 ds.l    1                ; offset: $8 (8)
  522. ioCompletion             ds.l    1                ; offset: $C (12)
  523. ioResult                 ds.w    1                ; offset: $10 (16)
  524. saveA5                     ds.l    1                ; offset: $12 (18)
  525. reqCode                     ds.w    1                ; offset: $16 (22)
  526. hfsPath                     ds.l    1                ; offset: $18 (24)
  527. filler                     ds.l    1                ; offset: $1C (28)
  528. newMsgRef                 ds.l    1                ; offset: $20 (32)
  529. filler2                     ds.l    1                ; offset: $24 (36)
  530. filler3                     ds.b    1                ; offset: $28 (40)
  531. filler4                     ds.b    1                ; offset: $29 (41)
  532. reserved                 ds.l    1                ; offset: $2A (42)
  533. sizeof                     EQU *                    ; size:   $2E (46)
  534.                         ENDR
  535.  
  536. IPMOpenBlockAsMsgPB        RECORD 0
  537. qLink                     ds.l    1                ; offset: $0 (0)
  538. reservedH1                 ds.l    1                ; offset: $4 (4)
  539. reservedH2                 ds.l    1                ; offset: $8 (8)
  540. ioCompletion             ds.l    1                ; offset: $C (12)
  541. ioResult                 ds.w    1                ; offset: $10 (16)
  542. saveA5                     ds.l    1                ; offset: $12 (18)
  543. reqCode                     ds.w    1                ; offset: $16 (22)
  544. msgRef                     ds.l    1                ; offset: $18 (24)
  545. filler                     ds.l    1                ; offset: $1C (28)
  546. newMsgRef                 ds.l    1                ; offset: $20 (32)
  547. filler2                     ds.w    7                ; offset: $24 (36)
  548. blockIndex                 ds.w    1                ; offset: $32 (50)
  549. sizeof                     EQU *                    ; size:   $34 (52)
  550.                         ENDR
  551.  
  552. IPMCloseMsgPB            RECORD 0
  553. qLink                     ds.l    1                ; offset: $0 (0)
  554. reservedH1                 ds.l    1                ; offset: $4 (4)
  555. reservedH2                 ds.l    1                ; offset: $8 (8)
  556. ioCompletion             ds.l    1                ; offset: $C (12)
  557. ioResult                 ds.w    1                ; offset: $10 (16)
  558. saveA5                     ds.l    1                ; offset: $12 (18)
  559. reqCode                     ds.w    1                ; offset: $16 (22)
  560. msgRef                     ds.l    1                ; offset: $18 (24)
  561. deleteMsg                 ds.b    1                ; offset: $1C (28)
  562. filler1                     ds.b    1                ; offset: $1D (29)
  563. sizeof                     EQU *                    ; size:   $1E (30)
  564.                         ENDR
  565.  
  566. IPMGetMsgInfoPB            RECORD 0
  567. qLink                     ds.l    1                ; offset: $0 (0)
  568. reservedH1                 ds.l    1                ; offset: $4 (4)
  569. reservedH2                 ds.l    1                ; offset: $8 (8)
  570. ioCompletion             ds.l    1                ; offset: $C (12)
  571. ioResult                 ds.w    1                ; offset: $10 (16)
  572. saveA5                     ds.l    1                ; offset: $12 (18)
  573. reqCode                     ds.w    1                ; offset: $16 (22)
  574. msgRef                     ds.l    1                ; offset: $18 (24)
  575. info                     ds.l    1                ; offset: $1C (28)
  576. sizeof                     EQU *                    ; size:   $20 (32)
  577.                         ENDR
  578.  
  579. IPMReadHeaderPB            RECORD 0
  580. qLink                     ds.l    1                ; offset: $0 (0)
  581. reservedH1                 ds.l    1                ; offset: $4 (4)
  582. reservedH2                 ds.l    1                ; offset: $8 (8)
  583. ioCompletion             ds.l    1                ; offset: $C (12)
  584. ioResult                 ds.w    1                ; offset: $10 (16)
  585. saveA5                     ds.l    1                ; offset: $12 (18)
  586. reqCode                     ds.w    1                ; offset: $16 (22)
  587. msgRef                     ds.l    1                ; offset: $18 (24)
  588. fieldSelector             ds.w    1                ; offset: $1C (28)
  589. offset                     ds.l    1                ; offset: $1E (30)
  590. count                     ds.l    1                ; offset: $22 (34)
  591. buffer                     ds.l    1                ; offset: $26 (38)
  592. actualCount                 ds.l    1                ; offset: $2A (42)
  593. filler                     ds.w    1                ; offset: $2E (46)
  594. remaining                 ds.l    1                ; offset: $30 (48)
  595. sizeof                     EQU *                    ; size:   $34 (52)
  596.                         ENDR
  597.  
  598. IPMReadRecipientPB        RECORD 0
  599. qLink                     ds.l    1                ; offset: $0 (0)
  600. reservedH1                 ds.l    1                ; offset: $4 (4)
  601. reservedH2                 ds.l    1                ; offset: $8 (8)
  602. ioCompletion             ds.l    1                ; offset: $C (12)
  603. ioResult                 ds.w    1                ; offset: $10 (16)
  604. saveA5                     ds.l    1                ; offset: $12 (18)
  605. reqCode                     ds.w    1                ; offset: $16 (22)
  606. msgRef                     ds.l    1                ; offset: $18 (24)
  607. rcptIndex                 ds.w    1                ; offset: $1C (28)
  608. offset                     ds.l    1                ; offset: $1E (30)
  609. count                     ds.l    1                ; offset: $22 (34)
  610. buffer                     ds.l    1                ; offset: $26 (38)
  611. actualCount                 ds.l    1                ; offset: $2A (42)
  612. reserved                 ds.w    1                ; offset: $2E (46)        ;  must be zero 
  613. remaining                 ds.l    1                ; offset: $30 (48)
  614. originalIndex             ds.w    1                ; offset: $34 (52)
  615. recipientOffsetFlags     ds.b    1                ; offset: $36 (54)
  616. filler1                     ds.b    1                ; offset: $37 (55)
  617. sizeof                     EQU *                    ; size:   $38 (56)
  618.                         ENDR
  619.  
  620. ; 
  621. ;replyQueue works like recipient. [can no longer read it via ReadHeader]
  622. ;OriginalIndex is meaningless, rcptFlags are used seperately and there are
  623. ;currently none defined.
  624. ;
  625.  
  626. IPMReadReplyQueuePB        RECORD 0
  627. f                         ds        IPMReadRecipientPB
  628. sizeof                     EQU *                    ; size:   $38 (56)
  629.                         ENDR
  630.  
  631.  
  632. IPMGetBlkIndexPB        RECORD 0
  633. qLink                     ds.l    1                ; offset: $0 (0)
  634. reservedH1                 ds.l    1                ; offset: $4 (4)
  635. reservedH2                 ds.l    1                ; offset: $8 (8)
  636. ioCompletion             ds.l    1                ; offset: $C (12)
  637. ioResult                 ds.w    1                ; offset: $10 (16)
  638. saveA5                     ds.l    1                ; offset: $12 (18)
  639. reqCode                     ds.w    1                ; offset: $16 (22)
  640. msgRef                     ds.l    1                ; offset: $18 (24)
  641. blockType                 ds        IPMBlockType    ; offset: $1C (28)
  642. index                     ds.w    1                ; offset: $24 (36)
  643. startingFrom             ds.w    1                ; offset: $26 (38)
  644. actualBlockType             ds        IPMBlockType    ; offset: $28 (40)
  645. actualBlockIndex         ds.w    1                ; offset: $30 (48)
  646. sizeof                     EQU *                    ; size:   $32 (50)
  647.                         ENDR
  648.  
  649. IPMReadMsgPB            RECORD 0
  650. qLink                     ds.l    1                ; offset: $0 (0)
  651. reservedH1                 ds.l    1                ; offset: $4 (4)
  652. reservedH2                 ds.l    1                ; offset: $8 (8)
  653. ioCompletion             ds.l    1                ; offset: $C (12)
  654. ioResult                 ds.w    1                ; offset: $10 (16)
  655. saveA5                     ds.l    1                ; offset: $12 (18)
  656. reqCode                     ds.w    1                ; offset: $16 (22)
  657. msgRef                     ds.l    1                ; offset: $18 (24)
  658. mode                     ds.w    1                ; offset: $1C (28)
  659. offset                     ds.l    1                ; offset: $1E (30)
  660. count                     ds.l    1                ; offset: $22 (34)
  661. buffer                     ds.l    1                ; offset: $26 (38)
  662. actualCount                 ds.l    1                ; offset: $2A (42)
  663. blockIndex                 ds.w    1                ; offset: $2E (46)
  664. remaining                 ds.l    1                ; offset: $30 (48)
  665. sizeof                     EQU *                    ; size:   $34 (52)
  666.                         ENDR
  667. IPMVerifySignaturePB    RECORD 0
  668. qLink                     ds.l    1                ; offset: $0 (0)
  669. reservedH1                 ds.l    1                ; offset: $4 (4)
  670. reservedH2                 ds.l    1                ; offset: $8 (8)
  671. ioCompletion             ds.l    1                ; offset: $C (12)
  672. ioResult                 ds.w    1                ; offset: $10 (16)
  673. saveA5                     ds.l    1                ; offset: $12 (18)
  674. reqCode                     ds.w    1                ; offset: $16 (22)
  675. msgRef                     ds.l    1                ; offset: $18 (24)
  676. signatureContext         ds.l    1                ; offset: $1C (28)
  677. sizeof                     EQU *                    ; size:   $20 (32)
  678.                         ENDR
  679. IPMNewMsgPB                RECORD 0
  680. qLink                     ds.l    1                ; offset: $0 (0)
  681. reservedH1                 ds.l    1                ; offset: $4 (4)
  682. reservedH2                 ds.l    1                ; offset: $8 (8)
  683. ioCompletion             ds.l    1                ; offset: $C (12)
  684. ioResult                 ds.w    1                ; offset: $10 (16)
  685. saveA5                     ds.l    1                ; offset: $12 (18)
  686. reqCode                     ds.w    1                ; offset: $16 (22)
  687. filler                     ds.l    1                ; offset: $18 (24)
  688. recipient                 ds.l    1                ; offset: $1C (28)
  689. replyQueue                 ds.l    1                ; offset: $20 (32)
  690. procHint                 ds.l    1                ; offset: $24 (36)
  691. filler2                     ds.w    1                ; offset: $28 (40)
  692. msgType                     ds.l    1                ; offset: $2A (42)
  693. refCon                     ds.l    1                ; offset: $2E (46)
  694. newMsgRef                 ds.l    1                ; offset: $32 (50)
  695. filler3                     ds.w    1                ; offset: $36 (54)
  696. filler4                     ds.l    1                ; offset: $38 (56)
  697. identity                 ds.l    1                ; offset: $3C (60)
  698. sender                     ds.l    1                ; offset: $40 (64)
  699. internalUse                 ds.l    1                ; offset: $44 (68)
  700. internalUse2             ds.l    1                ; offset: $48 (72)
  701. sizeof                     EQU *                    ; size:   $4C (76)
  702.                         ENDR
  703. IPMNewHFSMsgPB            RECORD 0
  704. qLink                     ds.l    1                ; offset: $0 (0)
  705. reservedH1                 ds.l    1                ; offset: $4 (4)
  706. reservedH2                 ds.l    1                ; offset: $8 (8)
  707. ioCompletion             ds.l    1                ; offset: $C (12)
  708. ioResult                 ds.w    1                ; offset: $10 (16)
  709. saveA5                     ds.l    1                ; offset: $12 (18)
  710. reqCode                     ds.w    1                ; offset: $16 (22)
  711. hfsPath                     ds.l    1                ; offset: $18 (24)
  712. recipient                 ds.l    1                ; offset: $1C (28)
  713. replyQueue                 ds.l    1                ; offset: $20 (32)
  714. procHint                 ds.l    1                ; offset: $24 (36)
  715. filler2                     ds.w    1                ; offset: $28 (40)
  716. msgType                     ds.l    1                ; offset: $2A (42)
  717. refCon                     ds.l    1                ; offset: $2E (46)
  718. newMsgRef                 ds.l    1                ; offset: $32 (50)
  719. filler3                     ds.w    1                ; offset: $36 (54)
  720. filler4                     ds.l    1                ; offset: $38 (56)
  721. identity                 ds.l    1                ; offset: $3C (60)
  722. sender                     ds.l    1                ; offset: $40 (64)
  723. internalUse                 ds.l    1                ; offset: $44 (68)
  724. internalUse2             ds.l    1                ; offset: $48 (72)
  725. sizeof                     EQU *                    ; size:   $4C (76)
  726.                         ENDR
  727. IPMNestMsgPB            RECORD 0
  728. qLink                     ds.l    1                ; offset: $0 (0)
  729. reservedH1                 ds.l    1                ; offset: $4 (4)
  730. reservedH2                 ds.l    1                ; offset: $8 (8)
  731. ioCompletion             ds.l    1                ; offset: $C (12)
  732. ioResult                 ds.w    1                ; offset: $10 (16)
  733. saveA5                     ds.l    1                ; offset: $12 (18)
  734. reqCode                     ds.w    1                ; offset: $16 (22)
  735. msgRef                     ds.l    1                ; offset: $18 (24)
  736. filler                     ds.w    9                ; offset: $1C (28)
  737. refCon                     ds.l    1                ; offset: $2E (46)
  738. msgToNest                 ds.l    1                ; offset: $32 (50)
  739. filler2                     ds.w    1                ; offset: $36 (54)
  740. startingOffset             ds.l    1                ; offset: $38 (56)
  741. sizeof                     EQU *                    ; size:   $3C (60)
  742.                         ENDR
  743.  
  744. IPMNewNestedMsgBlockPB    RECORD 0
  745. qLink                     ds.l    1                ; offset: $0 (0)
  746. reservedH1                 ds.l    1                ; offset: $4 (4)
  747. reservedH2                 ds.l    1                ; offset: $8 (8)
  748. ioCompletion             ds.l    1                ; offset: $C (12)
  749. ioResult                 ds.w    1                ; offset: $10 (16)
  750. saveA5                     ds.l    1                ; offset: $12 (18)
  751. reqCode                     ds.w    1                ; offset: $16 (22)
  752. msgRef                     ds.l    1                ; offset: $18 (24)
  753. recipient                 ds.l    1                ; offset: $1C (28)
  754. replyQueue                 ds.l    1                ; offset: $20 (32)
  755. procHint                 ds.l    1                ; offset: $24 (36)
  756. filler1                     ds.w    1                ; offset: $28 (40)
  757. msgType                     ds.l    1                ; offset: $2A (42)
  758. refCon                     ds.l    1                ; offset: $2E (46)
  759. newMsgRef                 ds.l    1                ; offset: $32 (50)
  760. filler2                     ds.w    1                ; offset: $36 (54)
  761. startingOffset             ds.l    1                ; offset: $38 (56)
  762. identity                 ds.l    1                ; offset: $3C (60)
  763. sender                     ds.l    1                ; offset: $40 (64)
  764. internalUse                 ds.l    1                ; offset: $44 (68)
  765. internalUse2             ds.l    1                ; offset: $48 (72)
  766. sizeof                     EQU *                    ; size:   $4C (76)
  767.                         ENDR
  768.  
  769. IPMEndMsgPB                RECORD 0
  770. qLink                     ds.l    1                ; offset: $0 (0)
  771. reservedH1                 ds.l    1                ; offset: $4 (4)
  772. reservedH2                 ds.l    1                ; offset: $8 (8)
  773. ioCompletion             ds.l    1                ; offset: $C (12)
  774. ioResult                 ds.w    1                ; offset: $10 (16)
  775. saveA5                     ds.l    1                ; offset: $12 (18)
  776. reqCode                     ds.w    1                ; offset: $16 (22)
  777. msgRef                     ds.l    1                ; offset: $18 (24)
  778. msgID                     ds        IPMMsgID        ; offset: $1C (28)
  779. msgTitle                 ds.l    1                ; offset: $2C (44)
  780. deliveryNotification     ds.b    1                ; offset: $30 (48)
  781. priority                 ds.b    1                ; offset: $31 (49)
  782. cancel                     ds.b    1                ; offset: $32 (50)
  783. padByte                     ds.b    1                ; offset: $33 (51)
  784. reserved                 ds.l    1                ; offset: $34 (52)
  785. signature                 ds.l    1                ; offset: $38 (56)
  786. signatureSize             ds.l    1                ; offset: $3C (60)
  787. signatureContext         ds.l    1                ; offset: $40 (64)
  788. ;  family this msg belongs (e.g. mail) use kIPMFamilyUnspecified by default 
  789. family                     ds.l    1                ; offset: $44 (68)
  790. sizeof                     EQU *                    ; size:   $48 (72)
  791.                         ENDR
  792.  
  793. IPMAddRecipientPB        RECORD 0
  794. qLink                     ds.l    1                ; offset: $0 (0)
  795. reservedH1                 ds.l    1                ; offset: $4 (4)
  796. reservedH2                 ds.l    1                ; offset: $8 (8)
  797. ioCompletion             ds.l    1                ; offset: $C (12)
  798. ioResult                 ds.w    1                ; offset: $10 (16)
  799. saveA5                     ds.l    1                ; offset: $12 (18)
  800. reqCode                     ds.w    1                ; offset: $16 (22)
  801. msgRef                     ds.l    1                ; offset: $18 (24)
  802. recipient                 ds.l    1                ; offset: $1C (28)
  803. reserved                 ds.l    1                ; offset: $20 (32)
  804. sizeof                     EQU *                    ; size:   $24 (36)
  805.                         ENDR
  806.  
  807. IPMAddReplyQueuePB        RECORD 0
  808. qLink                     ds.l    1                ; offset: $0 (0)
  809. reservedH1                 ds.l    1                ; offset: $4 (4)
  810. reservedH2                 ds.l    1                ; offset: $8 (8)
  811. ioCompletion             ds.l    1                ; offset: $C (12)
  812. ioResult                 ds.w    1                ; offset: $10 (16)
  813. saveA5                     ds.l    1                ; offset: $12 (18)
  814. reqCode                     ds.w    1                ; offset: $16 (22)
  815. msgRef                     ds.l    1                ; offset: $18 (24)
  816. filler                     ds.l    1                ; offset: $1C (28)
  817. replyQueue                 ds.l    1                ; offset: $20 (32)
  818. sizeof                     EQU *                    ; size:   $24 (36)
  819.                         ENDR
  820.  
  821. IPMNewBlockPB            RECORD 0
  822. qLink                     ds.l    1                ; offset: $0 (0)
  823. reservedH1                 ds.l    1                ; offset: $4 (4)
  824. reservedH2                 ds.l    1                ; offset: $8 (8)
  825. ioCompletion             ds.l    1                ; offset: $C (12)
  826. ioResult                 ds.w    1                ; offset: $10 (16)
  827. saveA5                     ds.l    1                ; offset: $12 (18)
  828. reqCode                     ds.w    1                ; offset: $16 (22)
  829. msgRef                     ds.l    1                ; offset: $18 (24)
  830. blockType                 ds        IPMBlockType    ; offset: $1C (28)
  831. filler                     ds.w    5                ; offset: $24 (36)
  832. refCon                     ds.l    1                ; offset: $2E (46)
  833. filler2                     ds.w    3                ; offset: $32 (50)
  834. startingOffset             ds.l    1                ; offset: $38 (56)
  835. sizeof                     EQU *                    ; size:   $3C (60)
  836.                         ENDR
  837.  
  838. IPMWriteMsgPB            RECORD 0
  839. qLink                     ds.l    1                ; offset: $0 (0)
  840. reservedH1                 ds.l    1                ; offset: $4 (4)
  841. reservedH2                 ds.l    1                ; offset: $8 (8)
  842. ioCompletion             ds.l    1                ; offset: $C (12)
  843. ioResult                 ds.w    1                ; offset: $10 (16)
  844. saveA5                     ds.l    1                ; offset: $12 (18)
  845. reqCode                     ds.w    1                ; offset: $16 (22)
  846. msgRef                     ds.l    1                ; offset: $18 (24)
  847. mode                     ds.w    1                ; offset: $1C (28)
  848. offset                     ds.l    1                ; offset: $1E (30)
  849. count                     ds.l    1                ; offset: $22 (34)
  850. buffer                     ds.l    1                ; offset: $26 (38)
  851. actualCount                 ds.l    1                ; offset: $2A (42)
  852. currentBlock             ds.b    1                ; offset: $2E (46)
  853. filler1                     ds.b    1                ; offset: $2F (47)
  854. sizeof                     EQU *                    ; size:   $30 (48)
  855.                         ENDR
  856.  
  857.  
  858. IPMParamBlock            RECORD 0
  859. qLink                     ds.l    1                ; offset: $0 (0)
  860. reservedH1                 ds.l    1                ; offset: $4 (4)
  861. reservedH2                 ds.l    1                ; offset: $8 (8)
  862. ioCompletion             ds.l    1                ; offset: $C (12)
  863. ioResult                 ds.w    1                ; offset: $10 (16)
  864. saveA5                     ds.l    1                ; offset: $12 (18)
  865. reqCode                     ds.w    1                ; offset: $16 (22)
  866.                          ORG 0
  867. openContextPB             ds        IPMOpenContextPB ; offset: $0 (0)
  868.                          ORG 0
  869. closeContextPB             ds        IPMCloseContextPB ; offset: $0 (0)
  870.                          ORG 0
  871. createQueuePB             ds        IPMCreateQueuePB ; offset: $0 (0)
  872.                          ORG 0
  873. deleteQueuePB             ds        IPMDeleteQueuePB ; offset: $0 (0)
  874.                          ORG 0
  875. openQueuePB                 ds        IPMOpenQueuePB ; offset: $0 (0)
  876.                          ORG 0
  877. closeQueuePB             ds        IPMCloseQueuePB ; offset: $0 (0)
  878.                          ORG 0
  879. enumerateQueuePB         ds        IPMEnumerateQueuePB ; offset: $0 (0)
  880.                          ORG 0
  881. changeQueueFilterPB         ds        IPMChangeQueueFilterPB ; offset: $0 (0)
  882.                          ORG 0
  883. deleteMsgRangePB         ds        IPMDeleteMsgRangePB ; offset: $0 (0)
  884.                          ORG 0
  885. openMsgPB                 ds        IPMOpenMsgPB    ; offset: $0 (0)
  886.                          ORG 0
  887. openHFSMsgPB             ds        IPMOpenHFSMsgPB ; offset: $0 (0)
  888.                          ORG 0
  889. openBlockAsMsgPB         ds        IPMOpenBlockAsMsgPB ; offset: $0 (0)
  890.                          ORG 0
  891. closeMsgPB                 ds        IPMCloseMsgPB    ; offset: $0 (0)
  892.                          ORG 0
  893. getMsgInfoPB             ds        IPMGetMsgInfoPB ; offset: $0 (0)
  894.                          ORG 0
  895. readHeaderPB             ds        IPMReadHeaderPB ; offset: $0 (0)
  896.                          ORG 0
  897. readRecipientPB             ds        IPMReadRecipientPB ; offset: $0 (0)
  898.                          ORG 0
  899. readReplyQueuePB         ds        IPMReadReplyQueuePB ; offset: $0 (0)
  900.                          ORG 0
  901. getBlkIndexPB             ds        IPMGetBlkIndexPB ; offset: $0 (0)
  902.                          ORG 0
  903. readMsgPB                 ds        IPMReadMsgPB    ; offset: $0 (0)
  904.                          ORG 0
  905. verifySignaturePB         ds        IPMVerifySignaturePB ; offset: $0 (0)
  906.                          ORG 0
  907. newMsgPB                 ds        IPMNewMsgPB        ; offset: $0 (0)
  908.                          ORG 0
  909. newHFSMsgPB                 ds        IPMNewHFSMsgPB ; offset: $0 (0)
  910.                          ORG 0
  911. nestMsgPB                 ds        IPMNestMsgPB    ; offset: $0 (0)
  912.                          ORG 0
  913. newNestedMsgBlockPB         ds        IPMNewNestedMsgBlockPB ; offset: $0 (0)
  914.                          ORG 0
  915. endMsgPB                 ds        IPMEndMsgPB        ; offset: $0 (0)
  916.                          ORG 0
  917. addRecipientPB             ds        IPMAddRecipientPB ; offset: $0 (0)
  918.                          ORG 0
  919. addReplyQueuePB             ds        IPMAddReplyQueuePB ; offset: $0 (0)
  920.                          ORG 0
  921. newBlockPB                 ds        IPMNewBlockPB    ; offset: $0 (0)
  922.                          ORG 0
  923. writeMsgPB                 ds        IPMWriteMsgPB    ; offset: $0 (0)
  924.                          ORG 76
  925. sizeof                     EQU *                    ; size:   $4C (76)
  926.                         ENDR
  927. ;
  928. ; pascal OSErr IPMOpenContext(IPMParamBlockPtr paramBlock, Boolean async)
  929. ;
  930.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  931.         Macro
  932.         _IPMOpenContext
  933.             move.w              #$0400,-(sp)
  934.             dc.w                $AA5E
  935.         EndM
  936.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  937.         IMPORT_CFM_FUNCTION IPMOpenContext
  938.     ENDIF
  939.  
  940. ;
  941. ; pascal OSErr IPMCloseContext(IPMParamBlockPtr paramBlock, Boolean async)
  942. ;
  943.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  944.         Macro
  945.         _IPMCloseContext
  946.             move.w              #$0401,-(sp)
  947.             dc.w                $AA5E
  948.         EndM
  949.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  950.         IMPORT_CFM_FUNCTION IPMCloseContext
  951.     ENDIF
  952.  
  953. ;
  954. ; pascal OSErr IPMNewMsg(IPMParamBlockPtr paramBlock, Boolean async)
  955. ;
  956.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  957.         Macro
  958.         _IPMNewMsg
  959.             move.w              #$0402,-(sp)
  960.             dc.w                $AA5E
  961.         EndM
  962.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  963.         IMPORT_CFM_FUNCTION IPMNewMsg
  964.     ENDIF
  965.  
  966. ;
  967. ; pascal OSErr IPMNewBlock(IPMParamBlockPtr paramBlock, Boolean async)
  968. ;
  969.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  970.         Macro
  971.         _IPMNewBlock
  972.             move.w              #$0404,-(sp)
  973.             dc.w                $AA5E
  974.         EndM
  975.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  976.         IMPORT_CFM_FUNCTION IPMNewBlock
  977.     ENDIF
  978.  
  979. ;
  980. ; pascal OSErr IPMNewNestedMsgBlock(IPMParamBlockPtr paramBlock, Boolean async)
  981. ;
  982.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  983.         Macro
  984.         _IPMNewNestedMsgBlock
  985.             move.w              #$0405,-(sp)
  986.             dc.w                $AA5E
  987.         EndM
  988.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  989.         IMPORT_CFM_FUNCTION IPMNewNestedMsgBlock
  990.     ENDIF
  991.  
  992. ;
  993. ; pascal OSErr IPMNestMsg(IPMParamBlockPtr paramBlock, Boolean async)
  994. ;
  995.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  996.         Macro
  997.         _IPMNestMsg
  998.             move.w              #$0406,-(sp)
  999.             dc.w                $AA5E
  1000.         EndM
  1001.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1002.         IMPORT_CFM_FUNCTION IPMNestMsg
  1003.     ENDIF
  1004.  
  1005. ;
  1006. ; pascal OSErr IPMWriteMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1007. ;
  1008.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1009.         Macro
  1010.         _IPMWriteMsg
  1011.             move.w              #$0407,-(sp)
  1012.             dc.w                $AA5E
  1013.         EndM
  1014.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1015.         IMPORT_CFM_FUNCTION IPMWriteMsg
  1016.     ENDIF
  1017.  
  1018. ;
  1019. ; pascal OSErr IPMEndMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1020. ;
  1021.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1022.         Macro
  1023.         _IPMEndMsg
  1024.             move.w              #$0408,-(sp)
  1025.             dc.w                $AA5E
  1026.         EndM
  1027.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1028.         IMPORT_CFM_FUNCTION IPMEndMsg
  1029.     ENDIF
  1030.  
  1031. ;
  1032. ; pascal OSErr IPMOpenQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1033. ;
  1034.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1035.         Macro
  1036.         _IPMOpenQueue
  1037.             move.w              #$0409,-(sp)
  1038.             dc.w                $AA5E
  1039.         EndM
  1040.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1041.         IMPORT_CFM_FUNCTION IPMOpenQueue
  1042.     ENDIF
  1043.  
  1044. ;
  1045. ; pascal OSErr IPMCloseQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1046. ;
  1047.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1048.         Macro
  1049.         _IPMCloseQueue
  1050.             move.w              #$040A,-(sp)
  1051.             dc.w                $AA5E
  1052.         EndM
  1053.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1054.         IMPORT_CFM_FUNCTION IPMCloseQueue
  1055.     ENDIF
  1056.  
  1057. ;  Always synchronous 
  1058. ;
  1059. ; pascal OSErr IPMVerifySignature(IPMParamBlockPtr paramBlock)
  1060. ;
  1061.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1062.         Macro
  1063.         _IPMVerifySignature
  1064.             moveq               #0,D0
  1065.             move.b              D0,-(sp)
  1066.             move.w              #$0422,-(sp)
  1067.             dc.w                $AA5E
  1068.         EndM
  1069.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1070.         IMPORT_CFM_FUNCTION IPMVerifySignature
  1071.     ENDIF
  1072.  
  1073. ;
  1074. ; pascal OSErr IPMOpenMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1075. ;
  1076.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1077.         Macro
  1078.         _IPMOpenMsg
  1079.             move.w              #$040B,-(sp)
  1080.             dc.w                $AA5E
  1081.         EndM
  1082.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1083.         IMPORT_CFM_FUNCTION IPMOpenMsg
  1084.     ENDIF
  1085.  
  1086. ;
  1087. ; pascal OSErr IPMCloseMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1088. ;
  1089.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1090.         Macro
  1091.         _IPMCloseMsg
  1092.             move.w              #$040C,-(sp)
  1093.             dc.w                $AA5E
  1094.         EndM
  1095.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1096.         IMPORT_CFM_FUNCTION IPMCloseMsg
  1097.     ENDIF
  1098.  
  1099. ;
  1100. ; pascal OSErr IPMReadMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1101. ;
  1102.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1103.         Macro
  1104.         _IPMReadMsg
  1105.             move.w              #$040D,-(sp)
  1106.             dc.w                $AA5E
  1107.         EndM
  1108.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1109.         IMPORT_CFM_FUNCTION IPMReadMsg
  1110.     ENDIF
  1111.  
  1112. ;
  1113. ; pascal OSErr IPMReadHeader(IPMParamBlockPtr paramBlock, Boolean async)
  1114. ;
  1115.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1116.         Macro
  1117.         _IPMReadHeader
  1118.             move.w              #$040E,-(sp)
  1119.             dc.w                $AA5E
  1120.         EndM
  1121.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1122.         IMPORT_CFM_FUNCTION IPMReadHeader
  1123.     ENDIF
  1124.  
  1125. ;
  1126. ; pascal OSErr IPMOpenBlockAsMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1127. ;
  1128.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1129.         Macro
  1130.         _IPMOpenBlockAsMsg
  1131.             move.w              #$040F,-(sp)
  1132.             dc.w                $AA5E
  1133.         EndM
  1134.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1135.         IMPORT_CFM_FUNCTION IPMOpenBlockAsMsg
  1136.     ENDIF
  1137.  
  1138. ;
  1139. ; pascal OSErr IPMNewHFSMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1140. ;
  1141.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1142.         Macro
  1143.         _IPMNewHFSMsg
  1144.             move.w              #$041E,-(sp)
  1145.             dc.w                $AA5E
  1146.         EndM
  1147.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1148.         IMPORT_CFM_FUNCTION IPMNewHFSMsg
  1149.     ENDIF
  1150.  
  1151. ;
  1152. ; pascal OSErr IPMReadRecipient(IPMParamBlockPtr paramBlock, Boolean async)
  1153. ;
  1154.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1155.         Macro
  1156.         _IPMReadRecipient
  1157.             move.w              #$0410,-(sp)
  1158.             dc.w                $AA5E
  1159.         EndM
  1160.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1161.         IMPORT_CFM_FUNCTION IPMReadRecipient
  1162.     ENDIF
  1163.  
  1164. ;
  1165. ; pascal OSErr IPMReadReplyQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1166. ;
  1167.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1168.         Macro
  1169.         _IPMReadReplyQueue
  1170.             move.w              #$0421,-(sp)
  1171.             dc.w                $AA5E
  1172.         EndM
  1173.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1174.         IMPORT_CFM_FUNCTION IPMReadReplyQueue
  1175.     ENDIF
  1176.  
  1177. ;
  1178. ; pascal OSErr IPMCreateQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1179. ;
  1180.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1181.         Macro
  1182.         _IPMCreateQueue
  1183.             move.w              #$0411,-(sp)
  1184.             dc.w                $AA5E
  1185.         EndM
  1186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1187.         IMPORT_CFM_FUNCTION IPMCreateQueue
  1188.     ENDIF
  1189.  
  1190. ;
  1191. ; pascal OSErr IPMDeleteQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1192. ;
  1193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1194.         Macro
  1195.         _IPMDeleteQueue
  1196.             move.w              #$0412,-(sp)
  1197.             dc.w                $AA5E
  1198.         EndM
  1199.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1200.         IMPORT_CFM_FUNCTION IPMDeleteQueue
  1201.     ENDIF
  1202.  
  1203. ;
  1204. ; pascal OSErr IPMEnumerateQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1205. ;
  1206.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1207.         Macro
  1208.         _IPMEnumerateQueue
  1209.             move.w              #$0413,-(sp)
  1210.             dc.w                $AA5E
  1211.         EndM
  1212.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1213.         IMPORT_CFM_FUNCTION IPMEnumerateQueue
  1214.     ENDIF
  1215.  
  1216. ;
  1217. ; pascal OSErr IPMChangeQueueFilter(IPMParamBlockPtr paramBlock, Boolean async)
  1218. ;
  1219.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1220.         Macro
  1221.         _IPMChangeQueueFilter
  1222.             move.w              #$0414,-(sp)
  1223.             dc.w                $AA5E
  1224.         EndM
  1225.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1226.         IMPORT_CFM_FUNCTION IPMChangeQueueFilter
  1227.     ENDIF
  1228.  
  1229. ;
  1230. ; pascal OSErr IPMDeleteMsgRange(IPMParamBlockPtr paramBlock, Boolean async)
  1231. ;
  1232.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1233.         Macro
  1234.         _IPMDeleteMsgRange
  1235.             move.w              #$0415,-(sp)
  1236.             dc.w                $AA5E
  1237.         EndM
  1238.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1239.         IMPORT_CFM_FUNCTION IPMDeleteMsgRange
  1240.     ENDIF
  1241.  
  1242. ;
  1243. ; pascal OSErr IPMAddRecipient(IPMParamBlockPtr paramBlock, Boolean async)
  1244. ;
  1245.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1246.         Macro
  1247.         _IPMAddRecipient
  1248.             move.w              #$0403,-(sp)
  1249.             dc.w                $AA5E
  1250.         EndM
  1251.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1252.         IMPORT_CFM_FUNCTION IPMAddRecipient
  1253.     ENDIF
  1254.  
  1255. ;
  1256. ; pascal OSErr IPMAddReplyQueue(IPMParamBlockPtr paramBlock, Boolean async)
  1257. ;
  1258.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1259.         Macro
  1260.         _IPMAddReplyQueue
  1261.             move.w              #$041D,-(sp)
  1262.             dc.w                $AA5E
  1263.         EndM
  1264.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1265.         IMPORT_CFM_FUNCTION IPMAddReplyQueue
  1266.     ENDIF
  1267.  
  1268. ;
  1269. ; pascal OSErr IPMOpenHFSMsg(IPMParamBlockPtr paramBlock, Boolean async)
  1270. ;
  1271.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1272.         Macro
  1273.         _IPMOpenHFSMsg
  1274.             move.w              #$0417,-(sp)
  1275.             dc.w                $AA5E
  1276.         EndM
  1277.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1278.         IMPORT_CFM_FUNCTION IPMOpenHFSMsg
  1279.     ENDIF
  1280.  
  1281. ;
  1282. ; pascal OSErr IPMGetBlkIndex(IPMParamBlockPtr paramBlock, Boolean async)
  1283. ;
  1284.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1285.         Macro
  1286.         _IPMGetBlkIndex
  1287.             move.w              #$0418,-(sp)
  1288.             dc.w                $AA5E
  1289.         EndM
  1290.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1291.         IMPORT_CFM_FUNCTION IPMGetBlkIndex
  1292.     ENDIF
  1293.  
  1294. ;
  1295. ; pascal OSErr IPMGetMsgInfo(IPMParamBlockPtr paramBlock, Boolean async)
  1296. ;
  1297.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1298.         Macro
  1299.         _IPMGetMsgInfo
  1300.             move.w              #$0419,-(sp)
  1301.             dc.w                $AA5E
  1302.         EndM
  1303.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1304.         IMPORT_CFM_FUNCTION IPMGetMsgInfo
  1305.     ENDIF
  1306.  
  1307.  
  1308.  
  1309.     ENDIF ; __OCEMESSAGING__ 
  1310.  
  1311.